home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.49 / mathematik / ggt.p < prev    next >
Text File  |  1995-06-24  |  395b  |  29 lines
  1. program first;
  2.  
  3. var i,j,k:integer;
  4.  
  5. function ggt(a,b:integer):integer;
  6.  var rest:integer;
  7.  begin
  8.   repeat
  9.    rest:=a mod b;
  10.    a:=b;
  11.    b:=rest;
  12.   until rest=0;
  13.  ggt:=a;
  14. end;
  15.  
  16. begin
  17. writeln;
  18. write('bitte 1.zahl eingeben: ');
  19. readln(i);
  20. write('bitte 2.zahl eingeben: ');
  21. readln(j);
  22. k:=ggt(i,j);
  23. writeln;
  24. writeln('der größte gemeinsame teiler ist: ',k);
  25. writeln;
  26. writeln('taste...');
  27. readln;
  28. end.
  29.